### Example 2

library(phom)

t <- 2 * pi * runif(100)
x <- cos(t); y <- sin(t)
X <- t(as.matrix(rbind(x, y)))

max_dim <- 1
max_f <- 0.6

intervals <- pHom(X, max_dim, max_f)

plotPersistenceDiagram(intervals, max_dim, max_f,
	title="Random Points on S^1 with Euclidean Norm")
